Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Determine  Whether  a  Computer  Has  Any  USB  2.0  Ports  

 Content of Determine Whether a Computer Has Any USB 2.0 Ports.vbs
MD5 Hash: E1E66B3FBD8453CA58A7667EC44E0F25
strComputer = "."
i = 0

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colControllers = objWMIService.ExecQuery _
("Select * From Win32_USBController")

For Each objController in colControllers
If Instr(objController.Name, "Enhanced") Then
i = i + 1
End If
Next

Wscript.Echo "No. of USB 2.0 Ports: " & i



   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a